home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / 3MINCPY.ARC / C35 6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  608 b   |  29 lines
  1. 10 LDA #$00;TIMES 2 = 0 ADDRESS $0C9B
  2. 20 LDX #$05;$0500 IN DISK
  3. 30 LDY #$03;SEND THREE BLOCKS
  4. 40 JSR PRGDSK
  5. 50 JMP DATA
  6. 60 NOT0 JSR DEST
  7. 70 DATA JSR DATA1
  8. 80 JSR ERR
  9. 90 INC PASS
  10. 100 LDA PASS;HOLDS NUMBER OF PASS 1 TO 3
  11. 110 CMP #$03
  12. 120 BEQ J5;IF EQUAL TO 3 WE'RE FINISHED
  13. 130 JMP F1;(null) BACK FOR MORE
  14. 140 J5 JSR SCR
  15. 150 .BYTE 13 13 129
  16. 155 .BYTE "            BACKUP COMPLETE "
  17. 160 .BYTE 13 0
  18. 205 JSR INIT
  19. 210 JSR SCRIN
  20. 220 NOP:NOP
  21. 230 NOP:NOP:NOP
  22. 240 JMP START;END OF COPY PROGRAM
  23. 250 ERR LDA ERFLG
  24. 260 BNE ERROR;IF EQUAL TO 1 WE HAD AN ERROR
  25. 270 JSR SCR
  26. 280 .BYTE 13
  27. 290 .BYTE "[159]        NONE":.BYTE 0
  28. 300 .FILE C35 7
  29.